SQB7005 Assignment 1 - Group 2 (additional plot for task 1)

Group Members - Yu Jing - Lam Kum Yee - Chin Mun Kit - Chang Qian Yi

Objective

• Additional Interactive Plot to explore.

library('plotly')
path <- '../../data/DomesticBeer.csv'
df <- read.csv(path)
head(df)

summary(df)

    Brand              Alcohol          Calories    
 Length:128         Min.   : 0.400   Min.   : 70.0  
 Class :character   1st Qu.: 4.475   1st Qu.:130.8  
 Mode  :character   Median : 4.900   Median :150.0  
                    Mean   : 5.198   Mean   :154.0  
                    3rd Qu.: 5.600   3rd Qu.:166.0  
                    Max.   :10.500   Max.   :330.0  
     Carbs      
 Min.   : 2.60  
 1st Qu.: 8.60  
 Median :12.10  
 Mean   :12.15  
 3rd Qu.:14.65  
 Max.   :32.10  

sum(is.na(df))

[1] 0

fig1 <- plot_ly(x = df$Alcohol, type='histogram', name = 'Alcohol')
fig2 <- plot_ly(x = df$Calories, type='histogram', name = 'Calories')
fig3 <- plot_ly(x = df$Carbs, type='histogram', name = 'Carbs')
fig <- subplot(fig1, fig2, fig3, nrows = 3)
fig

fig <- plot_ly(df, y=~Alcohol, type='box', name='Alcohol', jitter=0.3, pointpos = -1.8)
fig <- fig %>% add_trace(y=~Calories, name='Calories')
fig <- fig %>% add_trace(y=~Carbs, name='Carbs')
fig

fig1 <- plot_ly(df, y=~Alcohol, type='box', name='Alcohol %', jitter=0.3, pointpos = -1.8)
fig1

fig2 <- plot_ly(df, y=~Calories, type='box', name='Calories per 12 ounce', jitter=0.3, pointpos = -1.8)
fig2

fig3 <- plot_ly(df, y=~Carbs, type='box', name='Carbs(g) per 12 ounce', jitter=0.3, pointpos = -1.8)
fig3

fig <- plot_ly(df, 
               x = ~Alcohol, 
               y = ~Calories, 
               type='scatter', 
               mode='markers', 
               color = ~Carbs, 
               colors = 'Reds', 
               marker = list(size = ~Carbs, opacity = 0.5),
               hoverinfo = 'text',
               text = ~paste(
                 'Brand:', Brand,
                 '<br>Alcohols:', Alcohol,
                 '<br>Calories:', Calories,
                 '<br>Carbs:', Carbs
                 
                 )
               )
fig